home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
17bals.zip
/
RBBSSUB2.ALS
< prev
next >
Wrap
Text File
|
1988-11-06
|
6KB
|
140 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against virgin17\rbbssub2.bas to produce ..\rbbssub2.bas
* rbbssub2.bas: Date 10-2-1988 Size 130944 bytes
* ------------[ Created 10-11-1988 06:54:29 ]------------
* REPLACING old line(s) by new
2250 SUB WHOCHECK (WHO.FIND$,WHO.FOUND,USER.NUM.FOUND) STATIC
USER.NUM.FOUND = 0
IF START.HASH <> 1 THEN _ 'Pe FIX 11/06/88
WHO.FOUND = TRUE : _
EXIT SUB
WHO.FOUND = FALSE
TO.SYSOP = (INSTR(WHO.FIND$,"SYSOP") > 0 OR _
INSTR(WHO.FIND$,SYSOP.PASSWORD.1$ + " " + SYSOP.PASSWORD.2$) > 0 )
CALL OPENUSER (HIGHEST.USER.RECORD)
FIELD 5, 128 AS USER.RECORD$
IF TO.SYSOP THEN _
X$ = SYSOP.PASSWORD.1$ + " " + SYSOP.PASSWORD.2$ _
ELSE X$ = WHO.FIND$
CALL FINDUSER (X$,"",START.HASH,LEN.HASH,_ ' KG101607 + PeFix
0,0,HIGHEST.USER.RECORD,WHO.FOUND,_ ' KG101607 + PeFix
USER.NUM.FOUND,SL)
IF USER.FILE.INDEX > 0 THEN _
* ------[ first line different ]------
GET 5, USER.FILE.INDEX
IF NOT WHO.FOUND THEN _
IF TO.SYSOP THEN _
WHO.FOUND = TRUE _
ELSE CALL ALIASCHK (WHO.FIND$,WHO.FOUND,USER.NUM.FOUND) : _ 'DGS-ALSMN
IF NOT WHO.FOUND THEN _ 'DGS-ALSMN
CALL QTPUT (WHO.FIND$ + " not active user",1) 'DGS-MNMOD
END SUB
' $SUBTITLE: 'ALIASCHK - Checks whether ALIAS exists'
' $PAGE
'
' SUBROUTINE NAME -- ALIASCHK
'
' INPUT PARAMETERS -- PARAMETER MEANING
' WHO.FIND$ ALIAS to find
'
' OUTPUT PARAMETERS -- WHO.FOUND Whether ALIAS found
' USER.NUM.FOUND Record # of User
'
' SUBROUTINE PURPOSE -- Validate that ALIAS exists. Get User Record
'
2257 SUB ALIASCHK (WHO.FIND$,WHO.FOUND,USER.NUM.FOUND) STATIC 'DGS-ALSMN
CALL BRKFNAME (MAIN.USER.FILE$,DRV$,PREFIX$,EXT$,TRUE) '
DGS.TEMP = INSTR(GRN$," ") '
IF DGS.TEMP > 0 THEN _ '
DGS.FILE.NAME$ = DRV$ + LEFT$(GRN$,DGS.TEMP-1) + "A.DEF" _ '
ELSE DGS.FILE.NAME$ = DRV$ + GRN$ + "A.DEF" '
CALL FINDIT (DGS.FILE.NAME$) '
IF NOT OK THEN _ '
EXIT SUB '
OPEN "I", 7, DGS.FILE.NAME$ '
DGS.ALIAS$ = "" '
WHILE DGS.ALIAS$ = "" AND NOT EOF(7) '
INPUT #7, DGS.USER.NAME$, DGS.TEMP.ALIAS$ '
IF DGS.TEMP.ALIAS$ = WHO.FIND$ THEN '
DGS.ALIAS$ = DGS.USER.NAME$ '
END IF '
WEND '
CLOSE 7 '
CALL OPENUSER (HIGHEST.USER.RECORD) '
FIELD 5, 128 AS USER.RECORD$ '
CALL FINDUSER (DGS.USER.NAME$,TEMP.INDIV.VALUE$,START.HASH,LEN.HASH,_ '
START.INDIV,LEN.INDIV,HIGHEST.USER.RECORD,WHO.FOUND,_ '
USER.NUM.FOUND,SL) '
END SUB
' $SUBTITLE: 'EDITALINE - Edits a line in a message'
' $PAGE
'
' SUBROUTINE NAME -- EDITALINE
'
' INPUT PARAMETERS -- PARAMETER MEANING
' L Line # to edit
'
' OUTPUT PARAMETERS -- A$(L) Edited line
'
' SUBROUTINE PURPOSE -- Edit a line in a message.
'
SUB EDITALINE (L) STATIC
* REPLACING old line(s) by new
10987 A$(1) = DISK.FOR.DOS$ + _
"COMMAND /C " + _
Z$ + _
" " + _
NODE.ID$
A$(2) = RBBS.BAT$
Z$ = LEFT$(Z$,LEN(Z$) - 4)
IF TRANSFER.FUNCTION = 3 THEN _
Y$ = "Registration" : _
ELSE Y$ = Z$
A$ = Y$ + _
" door opened at " + _
TIME$ + _
" on " + _
DATE$
SUBROUTINE.PARAMETER = 5
CALL TPUT
* ------[ first line different ]------
CALL UPDTCALR (Z$ + " door opened! " + TIME$,2) 'DGS-010
CLOSE 2
OPEN "O",2,"DORINFO" + _
NODE.FILE.ID$ + _
".DEF"
PRINT #2,RBBS.NAME$
PRINT #2,SYSOP.FIRST.NAME$
PRINT #2,SYSOP.LAST.NAME$
PRINT #2,COM.PORT$
B$ = MID$(BAUD.PARITY$,INSTR(BAUD.PARITY$," B"))
PRINT #2,TALK.TO.MODEM.AT$;B$
PRINT #2,NETWORK.TYPE
IF GLOBAL.SYSOP THEN _
PRINT #2,"SYSOP" : _
PRINT #2,"" _
ELSE PRINT #2,ORIG.FIRST.NAME$ : _ 'DGS-ALS
PRINT #2,LAST.NAME$
PRINT #2,CITY.STATE$
PRINT #2,GR
PRINT #2,USER.SECURITY.LEVEL
CALL TIMEREMAIN (TIME.REMAINING!)
PRINT #2,INT(TIME.REMAINING!)
PRINT #2,FOSSIL
CALL RBBSEXIT (A$(),2)
END SUB
' $SUBTITLE: 'RBBSEXIT -- Setup to exit RBBS'
' $PAGE
' SUBROUTINE NAME -- RBBSEXIT
'
' INPUT PARAMETERS -- PARAMETER MEANING
' LINE.ARA Array of lines to write to batch file
' NUM.LINES How many lines in array
'
' OUTPUT PARAMETERS -- RCTTY.BAT$
'
' SUBROUTINE PURPOSE -- TO CREATE A BATCH FILE THAT CONTROL CAN BE PASSED TO
' AND TO EXIT RBBS-PC WHILE STILL KEEPING CARRIER UP
'
SUB RBBSEXIT (LINE.ARA$(1),NUM.LINES) STATIC